This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
~Nicole Ciskimarettu 5.Jan.04 04:21 PM a Web browser Domino Server All Releases All Platforms
All greetings.
I have the program code:
================================================
CREATE CURSOR MyCursor (field1_name C(10), field2_name C(20))
oLotus=CREATEOBJECT("Lotus.NOTESSESSION")
oLotus.Initialize()
oLdtim=oLotus.createdatetime("2003/01/01 00:00 AM")
oDbase=oLotus.getdatabase("","File_name.nsf")
if vartype(oDbase)#"O"
=messagebox('Connection fall',16,'LotusNotes')
return
endif
oColl=oDbase.Search("Form='Type1'",oLdtim,0)
lnCnt=oColl.count
FOR gnDoc=1 TO lnCnt
oDoc=oColl.getNthDocument(gnDoc)
m.field1_value=oDoc.GetItemValue("notes_field1")
m.field2_value=oDoc.GetItemValue("notes_field2")
IF NOT EMPTY(m.field1_value)
n=n+1
INSERT INTO MyCursor VALUES (m.field1_value, m.field2_value)
IF n%1000=0
WAIT WINDOW ALLTRIM(STR(n)) nowait
ENDIF
ENDIF
ENDFOR
RELEASE olotus
BROWSE
===============================================
Why speed of sample of the data falls at the reference(manipulation) to a database? In a database of 30000 records, each subsequent 1000 records gets out more slowly previous, and this delay is essential.